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DECLARATIONS 

RMS OrePLaY = SDISPLAY ROUTINE 

DSPXAB = nave penerel. pe — XAB attributes 
DSPFAB = Handle 

DSPRAB = Handle RAB att ie 

ISAM_XABS = Handle Indexed file XAB attributes 
READ_ATTR = SUBROUTINE TO READ FILE ATTRIBUTES 
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p 1 
1 
1 
8 1 
1 
0 
0 
0 
6 ‘ 
9 FACILITY: RMS32 5 
0 ABSTRACT: 
0 This module is the highest level control routine 
0 to perform the SDISPLAY function. 
6 ENVIRONMENT : 
8 STAR processor running STARLET EXEC. 
8 ; AUTHOR: L F Laverdure, CREATION DATE: 19-Jan-1978 
0 6 i MODIFIED BY: 
6 4 V03-021 JWT0175 Jim Teague 12-Apr-1984 
0 ? Complete the implementation of access mode ATRs. 
o 4 v03-020 JWT0173 Jim Teague 1-Apr-1984 
2 Disable access B+ ATRs for now. 
6 0 4 v03-019 JWw10172 sogve 28-Mar-1984 
38 4 Put byte spec itying EXE mode access in last longword 
p 4 of ATR work area. 
09 v03-018 DASO0001 David Solomon 25-Mar-1984 
Add SATRDEF. 
v03-017 pca0des Donald G. Blair 22-Mar-1984 
Have RMS$XAB_SCAN process protection = AFTER call to 
ACP as part of implementation of ACL's 


L 10 
RMSODISPL DISPATCH FOR DISPLAY OPERATION 16-SEP-1984 01:15:10 VAX/VMS Macro v04-00 Pace 2 
yOL-000 mi Tots eet Mi Ade ta te ar 6 


V03-016 JWT0166 Jim Teague 20-Mar-1984 
Use access-mode erie toy es re those places where 
RMS requests the ACP t A yy: e user structures. 
Also use a dynenteatisrs located scratch page for 
accumulating ATRs for Q10s. 


v03-015 DGB0009 Donald G. Blair 01-Mar-1984 
Make changes related to ACP calls as part of the 
restructuring necessary to implement access mode 
ABOPNTAR i es. Also use RMSXABOPN_ARGS rather than 


V03-014 RASO214 Ron Schaefer 22-Nov-1983 
Fix RASO210 to set R10 more carefully. 
Fix network SDISPLAY for task-to-task. 


v03-013 pasgete Ron Schaefer 4-Nov-1983 
Revise this in several ways: 
Use the real FWA for storage; 
Use RMSRET_DEV_CHAR to get device characteristics; 
Properly store the RFM and ORG fields. 


v03-012 RASO193 Ron Schaefer 20-Sep-1983 
Increase size of attribute buffer to 16. 
This is a temp fix; real solution is to use existing FWA. 


PWN OOONAUES WN 9 OONAULS WN OWOONOUS Wry. 


SOOSSCOCOCOCOSOCOCSCOSCSOSOOSOSCOOSOSOSOOOOOOOOOOOOOOOOOOO 
Rt Ne type tO 8 et try te ree OEP FN RP WS BN OO 
PE TETETLIEICIR ILIA ILIA ILI ILI IEEE IEE Tee Eee rere rererererererererererererere rere rere 
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V03-011 RASO163 Ron Schaefer 27-Jun-1983 
Eliminate reference to RMS$BASIC_ERR. 
v03-010 TSK001 Tamar Krichevsky 12-Jun-1983 
Fix broken branches to journaling routines. 
v03-009 LJA0071 Laurie J. ay ek 29-Apr-1983 
Fix problem yieh displaying te term 
When oases aying FAB tt Weld, too. 
Note: Still need to handle Wa F file case in filling in ALQ 
V03-008 RASO148 Ron Schaefer 26-Apr-1983 
Add initial support for extended XABPRO. 
98 v03-007 100080 urie J. Anderson 21-Feb-1983 
Add the display bt YRAB and FAB fields amie sre available 


in the IRAB and IFAB and so R oy be d set ayed. 
Add the di spi ay po! the NAM block, if is ed to “FAB, from 
the anal WA space. Add some more comments. 


V03-006 LJAO Laurie J. Anderson 13-Jan-1983 
Add abi ity to display Rig. 120%, add aunts ISI"’ support 
for Contex Extraction. upper’ involves the 
return of the ‘next ISI"’ — f,! Pinked ist of IRAB‘s. 
This value is returned in the STV. 


v03-005 JWHO115 Jette ey W. Horn 22-0c t-1982 
Fix bug in V03-004 to reference correct register 
for FIB in READ_ATTR. 


V03-004 JWHO108 Jeffrey W. Horn 28-Sep-1982 
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Add processing for $XABJNL. 


V03-003 KBTO3xx Keith B. Thompson 10-Aug-1982 
Remove SFRBDEF 


v03-002 KBT0178 Keith B. Thompson fuga 19 
Reorganize psects and rename entry woten" ts s ain *$' 


v03-001 ¢DdS0003 C Saether 30-Mar-1982 
Correct display of isam xab's so that BIO connect 
after BRO open works. 


v02-015 agg 0 C Saether 22-Jan-1982 
Use RMSALLOC_BUF rout ine to allocate/deallocate 
buffers so that global buffers are handled correctly. 


v02-014 CDS0001 C Saether 29-Aug-1981 
Remove references to *BCB's. Use BLB’s instead. 


v02-013 JAK0063 kryebe 28-AUG-1981 

Add support for ah SDISPLAY. 
v02-012 MCNO007 aria del C. 12-May-1981 

Define new ee, ter old length “ot backup date and time XAB. 
V02-011 REFORMAT Frederick E. Deen, Jr. 28-Jul-1980 

This code was reformatted to adhere to RMS standards 


6-Dec-1979 
Fixup relative ts v805. "use RMSBDBALLOC_ALT to allocate 
buffer, etc., for ISAM 


v009 CdS0051 C Sae 2-Nov-1979 
Use RMSALLOC_BUF to tie allocate buffer for 
ISAM org only = others don't need it 


v008 DMB0002 D M Bousquet 13-Feb-1979 
Modified to always allocate a BDB, BUFFER ane BCB (if SHARED) 
and release everything we allocated at finish 


v007 DMB0001 D M Bou 10-Jan-1979 | 
Changed RMSRETBDB to a ve RCHE and RELEASE CALL | 
v006 CDS0001 C D Saether 22-Jan-1979 


Resolve out of range BRANCH 
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v005 —_— R A Newell 6-Sep-1978 
RMS-32 ISAM modifications. Processing of summary, key 


and area xabs 


v004 JAKO001 Krycka 27-Aug-1978 
Revise NETWORK ERROR processing 


; REVISION HISTORY: 


LF averdure 10-Oct-1978 
X0003 - Deletion of oat e CHK_IDLE 
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v04-000 DECLARATIONS 5-SEP=1984 16:24:48 CRMS.SRCIRMSODISPL.MAR;1 
00 0010 7 -BYTE 0 
a 
1 rt : XAB scan args for XABS requiring modification after a READ attributes 
11 242 ° 
11 rk DSP_XAB_ARGS1: 
00" f 1D 11 44 ~BYTE XABSC_FHC,XABSC_FHCLEN,XBCSC_DSPFHC1 
"20 16 0014 245 -BYTE XABSC"ALL,XABSC_ALLLEN, XBC$C_DSPALL1 
*3C $ 17 rh BYTE yy tte lh + pe ae OPNJNL 
0°10 i 001A 4 BYTE XABSC_PRO,KABSC_PROLEN, V ,XBT$C_OPNPRO1 
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~SBTTL RMSSDISPLAY = SDISPLAY ROUTINE 


RMSODISPL DISPA OR D 
vou-008 RMS$D Y 


om 
-v 
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++ 
RMSSDISPLAY = Highest level SDISPLAY processing 


This routine performs the highest level SDISPLAY processing. 
its functions include: 


Determine whether FAB or RAB display, and do common setup 

Check for all streams idle, exiting with error if not 

If this is a RAB display, just fill in RAB information available 
from the IRAB and exit. 

Allocate an attribute List work area and process the XAB chain 
Do a READ of the file attributes 

Reprocess the XAB chain for any XABS requiring modification 

ter the READ attributes. 

allocate the attribute List work area 

LL in FAB fields available from the IFAB. 

eck for a NAM block. If present, fill in with information from FWA 
xit to the user, generating an AST if requested 


PEP AAANITIIUIUIUTU 
—OOnN OVE Wo 
ec ce . 


Oe «© « 
* 
mS —- 


CALLING SEQUENCE: 


Entered from EXEC as a result of user's calling SYSS$DISPLAY 
(e.g., by using the SDISPLAY macro). 


INPUT PARAMETERS: 

AP User's argument List addr 
IMPLICIT INPUTS: 

The contents of the FAB or RAB and RELATED XABS. 
OUTPUT PARAMETERS: 


SOOO OOOCOOOCOCOOSOOOOSOSOOOOOOOOSOOOOCOOOSOOOOOOOOOOOOOOOOOOOOOOoOOoOO + 
peewee lee lolol ele lel ola olealol ol alow lal ew lolol wlio ololelelolololeloleloleleleolololololel ele oleol ol ol elo) ool ~ Mei a] 
ee a ee a ee et ed a a ad ad od od od oh dd OE 
MMMM MMM MM MMMM MMM MM MMMM MMMM Mm mlm Mem Mmmm emrcnicevnicnievnievnievicvecevievyeevwcvvevwevwevwevveevicvie ry 
090909 09 09 090908 SI NIN INI NI NIOOOOOSD ~ 
OOONA UES WN 9 OOD NAME WN OOO NA UNE os PD § OUODNAUE WIN oem 


AAA AA GEPIPIPIPIPIPIPIPINIDINIPONIPINIPYINININIPINIPIPIPIPIPYPIPUDINPINIPINYPOPYIPOPIPIPUNIPINIPONoPonofnopfngynrnyd 


Se Se Se Ge Ge Se Se Ge Ge Ge Su Ge Ge Ge Se Ge Ge Ge Sse Ge Ge Ge Ge Ge Ge Se Se Ge Ge Se Ge Se Ge Ge Gs Ge Fe Se Ge Ge Se Ge Ge Se Ge Ge Fe Se Sse Se Se Se Se 


RO STATUS code 

8 R1 destroyed 
‘ IMPLICIT OUTPUTS: 
38 The various fields of the RELATED XABS are filled in. 
3¢ A completion AST is queued if so specified by the user. 
39 ; COMPLETION CODES: 
98 Standard RMS (see functional spec for List). 
G9 SIDE EFFECTS: 
0 None. 
oe 
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vOL-000 RMSSDISPLAY = SDISPLAY ROUTINE 878Ep-|98¢ ys: RMS.SRCIRMSODISPL.MAR; 1 ( 8) vo4 
1E 7 
i 
if 19 : Entry point for SDISPLAY service 
a 1g i | 
Bie 14 SENTRY RMSSDISPLAY 
5 15 STSTPT DISPLAY 
vat 
8 | 3 ; Decide if this is a FAB or RAB display. 
024 & 
58 04 AC 00 0024 1 OVL 4(AP) ,R8 ; Get FAB or RAB address 
0 § ¢ ASSUME FABSB_BID EQ RABSB_BID 
0 IFNORD #<FABSB_BID+1>, (R8BY,1$ ; Structure not accessible. 
68 03 91 O0E 4 CMPB ss #FABSC_B10,FAB$B_B10(P8) ; Is this a display for RAB? 
15 12 0031 5 BNEQ 5% : Yes, RAB display 
oo83 359 3 
003 8; This is a FAB display. Do common setup for FAB. Check for Network 
003 9 ; operation and go do Just that. 
boss 33): 
FFCA’ 30 003 3 ‘ BSBW RMSFSET ; do common setup 
0036 3 NOTE: does not return on 
0036 34 : error 
12 69 3£ 1 0036 35 BBC #IFBSV_DAP,(R9) ,10$ ; Check for network operation 
FFC3° 30 003A 36 BSBW NTSDISPLAY : Get file attributes from 
FFCO’ 31 003d 37 BRW RMSEXRMS i; remote system and exit RMS 
$020 $39 
Ope p ‘3 : Error out if cannot read first word of the inputted structure (FAB or RAB) 
50 000187BC 8F DO 0040 4s is: MOVL #RMS$_STR,RO ; Return structure error to user 
04 0047 4 RET 3 and exit RMS 
Beh athe 
O94 46 : This is a RAB display. Do common setup for RAB. 
D048 48 :-- 
004 48 S$: SRABSET 3 common setup 
G9et 29 : 3; NOTE: does not return on error 
Bee 3g : Supply "Wild ISI" information. Put it into STV of user input structure. | 
° | 
04C 54; Pick up, in the case of a FAB input, the ISI of the first stream which | 
04C 55; is connected to the file. In the case of a RAB input, the ISI of the next 
4C 2$ : stream which is connected to the file. If such an ISf exists, in both cases. 
4C 57 ; Because the top portion of both the IFAB and IRAB are similar, the same code | 
Ree 38 3; can be used. | 
Ret 60 : ne is to agsune that the user has called SDISPLAY with an IFI and is now | 
4C 61; interested in the streams connected to the file. Returning the first ISI 
04C 66 : with the FAB SDISPLAY, the user will call SDISPLAY with each of the values 
04¢ 65 ; returned in the STV until zero. 
| 
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OPPO 1 SPL DISPATCH 
v04- RMSSDISPLAY DISPLAY ROUTINE RMS.SRCIRMSODLSPL.MAR; 1 
4C 64 ; 
4C 365 ASSUME IFBSL_IRAB_LNK £0 [RBSL_IRAB_LNK 
4C 96 ASSUME IFBSWLIFI ~ Q IRBS$W_ISI | 
rt: 2 10$ ASSUME FABSL-STV EQ RABSL_STV 
50 1C Ad 9 4 $3 ; MOVL a sitaiahnceabeanttitnated ; Pick up first IRAB address 
046 #1 2 9 BEQL 0$ ; No streams connected 
50 28 AO 7 MOVZWL IRBSW_ISI(RO),RO 3; save this IRAB's ISI 
5 72 208 
oc AB =650~—Ss«éO $86 4g : MOVL RO, FABSL_STV(R8) 3; return this ISI (or 0) in STV 
Ben iS RMSSUC 3 anticipate SUCCESS 
$8 6 : If this is a RAB input, oe: go to fill in the RAB information and 
bap a 3 handle any RAB XAB's attached. 
9090 79 ° ASSUME <1FBSC_B1DG12 EQ 1 ; Is this a FAB or RAB display 
05D 0 ASSUME <IRBS$C_BID81> EQ 0 
Bnab 1 ASSUME IFB$B_BID EQ 1RBSB BID 
03 08 AY 44 Bap : BLBS IFBSB_BID(R9) ,25$ 
012A 4594 Se BRW DSPRAB ; display RAB stuff 
0064 56 25$: BBS #DEVSV_DIR,- 3 err not file structured 
8098 8 IFBSL PRIM. DEV(R9) , 30S 
006 88 BRW DSPFAB : Display 4* and exit. 
0068 89 30$ CMPB LESS) 10K, SPOSS OMGEASE CRP 3; is this ISAM file? 
4 oY BNEQ DSPXAB 3; no, skip ISAM XABS 
0071 38 BSBW ISAM_XABS : process ISAM XABS 
0074 9 BLBS RO DSPXAB 
0077 94 D_XIT: BRW DSPXI ; exit on error 
007A 95 


— 
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XAB = Handle general, non-I1SAM XAB a SEP=19 RMS.SRCIJRMSODISPL.MAR; 1 
A 358 -SBTTL DSPXAB = Handle general, non-ISAM XAB attributes 
7A 99 ; 
7A 400; Allocate FIB work area 
Ra: 
52 40 or 3 7A 4 4 DSPXAB: MOVZBL #FIBSC_LENGTH,R2 ; size for work area 
FF7F" 7E 404 BSBW RMSGETSPC1 ; allocate work area 
F3 29 E 081 405 BLBC RO,D_XIT 3; get out on errors 
56 1 44 084 4 § MOVL R1,R6 ; set FIB a 
SA 38 AD «2=O 60087) — 4 MOVL  IFBSL_FWA_PTR(R9) R10 Set up FWA pointer 
9 B 38 238 PUSHR #*M<RT,R2,R3> > Save regs 
FF70" D 4 BSBW RMSGETIPAG : Get scratch page 
5B AA 5 ? 90 410 MOVL Rae E¥ASL. ATR_WORK(R10) ; for ATR work area 
5 D 094 411 MOVL R3,R5 : Put address in R5 
orc C3) «01S «DO s«0097 41g MOVL  #PSLSC_EXEC,508(R3) ; Keep exec mode byte in last lword 
OE BA 009C 41 POPR #*M<RI-R2,R RS3 : Restore regs 
SE 
O0O9E 416: Process ALLOCATION XAB, if any. 
O03 tie 
03 69 38 ~~ €1 09 419 BBC #IFBSV_SEQFIL,(R9),7$ 3; really SEQUENTIAL FILE 
O0A 420 ; masquerading as RELATIVE? 
BoA ; 1 ASSUME <IFBSC_SEQ + 1> EQ IFBSC_REL 
$3 A9 97 OOA 4 4 DECB IFB$B_ORGCASE(R9) : don't confuse XAB scan 
5¢ FFS7 CF 9E eral 2 : 7$: MOVAB ALL_ XAB ARGS ,AP ; XAB scan arg. List addr 
a : 8 : set access mode to user before calling XAB_SCAN 
85 01 OOAA 428 ° MOVW : 1 byte length 
85 2D BO OOAD 429 MOVW pAtnse. ACCESS move (R5)+ > access mode 
85 0A Ad 680 4 0 MOVAB IFBSB_MODE(R9T, (R55+ : user mode 
FF49' 30 Some $38 BSBW Ser SCAN 3 process any ALLOCATION XAB 
4750 €9 00B7 43 BLBC SPTLN 3 get out on error 
se 
OBA 436 : Do a read of the file attributes. RMSXAB_SCAN has set up the attribute 
oon tz ; list, if a Allocation XAB was found. 
54 b§ OBA 439° TSTL RS : any XAB processed? 
0B 1 tae 440 BEQL 9$ : if not, RS still points 
BE 441 : to the rent place - go on 
O116 30 B rr BSBW . AD_ATTR ; go read attributes 
3D 5 E9 ‘} re BLBC »DSPCLN 3 get out on error 
ce rer ; Reset R5 pointer. Since there is already a user-mode ATR there, use it 
55 08 S58 AA (C1 pce it f ADDL3 FWASL_ATR_WORK(R10) ,#8,R5 ; set addr of work area 
C9 «6449; 
C9 $29 3 Process other XABS, if any 
cS 8 bs 
SC FFSA CF 609€ 600C9 43 : MOVAB DSP_XAB_ARGS,AP ; XAB scan arg. List addr 
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4 BSBW  RMSXAB_SCAN 
BLBC DSPCLN 
MOVZBL IFBSB_JNLFLG(R9) ,R7 


JSB RMSRTVINL 
BSBW READ Al A 


MOVAB bsbe AB UARGST, AP 
BSBW RMSRAB_SCAN 


MOVB R7, 1FBSB_JNLFLG(R9) 


Deallocate FIB and ATR work area 


SPCLN: Ao #*M<RO,R1,R2,R3,R4,R5> 


VL —s FWASL ATR *WORK(R105 ,R4 
BSBW = RMSRE 
CLRL FWASL ATR _WORK(R10) 
POPR #*M<RO,R1 “Re R3,R4,R5> 
MOVZBL #FIBSC_LENGTH,R2 
MOVL  R6,R4~ 
PUSHL R 
BSBW  PMSRETSPC1 
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INCB IFBSB_ ORGCASEC (R9) 
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MOVW patnne 2 Rec ESS_MODE,(R5)+ 
ADDL3 #508,FQASL_ATR_WORK(R10),(R5)+ 


R 
BBC #IFBSV_SEQFIL, (RI) ,DSPFAB 


Bete Se Ge Se Ge Ge Ge Ge Se Ge Se 


ISPL.MAR;1 


process the — 
; get out on erro 


; ; Save current journal flags 

: put an exec-mode ATR here for picking up jounaling stuff 

; 1 byte length 

3; access mode 

; Byte that specifies exec mode 


; set up pete souiee for journaling 


read uy a acer rowees 


: Pac a AL COCATION XAB scan args 
: presess nd half of all or 


; restore journal flags 


Save regs 
Point to work page 

and deallocate 

Indicate no work area now 
Restore regs 

size of Fl 

right register to return 
save status 
deallocate — space 
regtore sta 
+4 if not "Sea file SHARED 
back to RELATIVE disguise 
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10 AB = 70 AY 
FECC* 

3E AB SE AY 
3C AB 0094 C9 
14 AB 4C AD 
16 A8 ¢ Ag 
3F AB F AQ 
48 AB 64 AD 
38 ASB § OOAC C9 
36 a8 60 AY 
5 23 Ad 

02 69 3 

04 04 50 
1D A8 

1E A8 3 Ag 
1F A8 0 Ad 
50 14 BA 

05 

1¢ AB 903 AD 
17 AB GE AD 
FE75" 

FE72° 
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AB attributes 
-SBTTL OSPFAB = Handle FAB attributes 
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Display (fill in) FAB associated fields which are available in the IFAB 


Dd] 
le 
636 
4 
4 
i 
i 
132 DSPFAB: BLBC RO,DSPXIT ; get out on error 
63% MOVL IFBSL_FWA_PTR(R9) ,R10 ; Set up FWA pointer 
: 499 ; Note still need to handle shared file case in copying the all. quant. 
$ i : MOVL IFBSL_HBK(R9) ,FABSL_ALQ(R8) ; Copy in allocation quantity 
} § BSBW RMSRET_DEV_CHAR ; Copy in Device Characteristics 
4 33 
2 3 5 Fill in all the misc FAB fields in alphabetical order 
4 508° 
4 a MOVB IFB$B_BKS(R9) , FABSB_BKS(R8) Copy in Bucket Size 
9 510 MOVW LEBSL “ASDEVBSIZ(R9) FABSW BLS (RB) : Copy in Block-size 
F511 MOVW  IFBSWIRTDEQ(R9) ,FABSW DEQTRS) ; Copy in Default Extend Quant. 
44 31g MOVB LEBSB-FAC(R9) .FABSB_FAC(RS) : Copy in File access 
49 1 MOVB IFBSB_FSZ(R9) ,FABSB_FSZ(R8) 3; Copy in Record header sz for VFC 
ef 14 MOVW IFBSW_GBC(R9) , FABSW_GBC (R8) : Copy in Global Buffer Count 
5 15 MOVL Hh bb dy pa maneg hl 1 : Copy in Max record Number 
59 16 MOVW IFBSW_MRS(R9) ,FABSW_MRS(R8) : Copy in Maximum Record Size 
5 17 MOVZBL IFBS$B~ORGCASE(R9) ,RO : Pick up file organization 
6 18 BC #1FBS0_SEGFIL, (R95, 108 ; skip if not SEQ file SHARED 
66 1 DECL R 3; make it really SEQ 
68 0 10$: INSV RO, #FABSV_ORG,#FABSS_ORG,- 
6C 1 FABSB_ORGTRB) : and shift over for FAB 
$f § MOVB IFBSB_RAT(R9) ,FABSB_RAT(R8) 3; Copy in Record attributes 
MOVB  IFBSB-RFMORG(R9) ,FABSB_RFM(R8) : Copy in Record Format 
78 4 MOVAB a@FWASG_F1B+4(R105 ,RO : Get address of FIB from FWA 
7 063 BEQL 20$ : No FIB => no windows 
43 2 § MOVB FIBSB_WSIZE(RO),FABSB_RTV(R8) ; Copy in Retrieval Window 
HH ; 20$: MOVB 1FB$B_SHR(R9) ,FABSB_SAR(R8) : Copy in Sharing bits 
0: Check for a NAM block and if present, fill in any information from the FWA 
3; Fill in the NAM block and resultant name string and return any errors found. 
: BSBW RMSF ILLNAM : Fill in NAM block 
: § DSPXIT: BRW RMSEXRMS 3 exit RMS 
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- Handle RAB attributes 
-SBTTL OSPRAB = Handle RAB attributes 
DSPRAB - Display the RAB information into the inputted 


ee 


a 
E 
8 
D 
F 
F 
F 
5 
B 
1 
1 


SOWONAULS WO ODNOAUNSE Wry 
* . o = . 


DPSS EB EE 


RAB from the IRAB 


Multi=-block count 
Multi-buffer count 


File organization 
Copy RFA 
Exit from RAB display 


Copy RFA 
Copy Key of Reference 


; exit RMS 
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I ABS = Handle Indexed file XAB attr 5-SEP-1984 16:24:4 RMS .SRCIRMSODISPL.MAR;1 (9) 

if 6¢ -SBTTL ISAM_XABS = Handle Indexed file XAB attributes 

1¢ 87 ; This does SCAN for INDEXED file org SUMMARY, KEY, and AREA XAB'S 

1s és ; RMSALLOC_BUF needs the IFB pointer in R10. 

1¢ é 

1Cc °8 ISAM_XABS: 

1C § mova #1, RS 3 1 block buffer, no lock blb. 

1¢6 BSBW MEAL LOC_BUF + Allocate buffer, desc, 

1C 4 BLBC RO,5 : out on allocation failure 

1¢C 3; nothing wilt have been alloc 

it¢ 4 20$: MOV RMSXABOPN_ARGS,AP 3 move addr. of XAB table in AP 

1D BSB RMS$XAB_SCAN 3 scan XAB List 

138 75 50$: RSB 3; return - this deallocates the 

1D 6 ; buffer and desc allocated on 

107 7 3; the call to RMSALLOC_BUF. 
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v04- READ_ATTR = SUBROUTINE TO READ FILE ATTR eto 9 On a2 18 RMS.SRCIRMSODISPL MAR: 1 . (10) 
107 4 -SBTTL READ_ATTR = SUBROUTINE TO READ FILE ATTRIBUTES 
133 1 344 
+44 ¢ ; READ _ATTR = Read file attributes 
+44 : 3 This routine performs an IO$_ACCESS QI0 to READ the file attributes 
107 § 3; INPUTS: 
107 3 
107 8 ; R11 IMPURE AREA addr 
107 9; R10 FWA address 
107 9 $ R9 IFAB addr 
107 91; R8 FAB addr 
107 35 3 7 FIB addr 
3107 37 : R ATTRIBUTE LIST END addr (a zero longword will be store here) 
the 598 ; OUTPUTS: 
0107 39 3 
0107 597 ; RO STATUS 
0107 9598 ; R1-R5,AP Destroyed 
0107 599 ; 
0107 600 ;-- 
0107 601 
0107 oR8 READ_ATTR: 
65 D4 0107 60 CLRL (R5) 3 flop end of attr. List 
56 DD 0109 604 PUSHL R6 ; build FIB descriptor (addr) 
7E 40 8F 9A O01DB 605 MOVZBL #FIBSC_LENGTH,-(SP) ; “ en) 
O1DF 606 SSB #F IBSV_PRSRV_ATR,- : specify real attributes (blk) 
O1DF 607 F IBSL_ACCTL(R6) 
GIES $09 
gies o19 3 Push P6 and PS QI0 parameters on the STACK and do the ACCESS Q10 function 
OIES O16 
00 DD OIE 61 PUSHL #0 ; P6 = 0 
58 AA DD O1E5 614 PUSHL FWASL_ATR_WORK(R10) ; PS = attr. List addr 
50 32 9A O1EB 615 MOVZBL #10$_ACCESS,RO 3: 1/0 function code 
FE12" 30 O16B 616 BSBW  RMSFCPFNC_P4 : read attributes 
08 50 €8 QIEE 617 BLBS RO,10$ 3; Did everything go ok? 
O1F1 618 RMSERR ACC,R1 : No, file system 
FEO7" 30 O1F6 619 BSBW RMSMAPERR : found something wrong 
SE 08 CO O1F9 620 10S: ADDL2 #8,SP : dump FIB size and address 
05S OFC 621 RSB 
BIED 6 $ 
17D 66 END 
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Symbol table MS.SRCIRMSODISPL.MAR; 1 (10) 
KABSC_ALL = 00014 
XABSC~ALLLEN = 
XABSC_DAT = 
XABSC_DATLEN_V2 = 
XABSC_FHC = D 
XABSC_FHCLEN = § 
XABSC_JNL = 
XABSC_JNLLEN = 6 
XABSC_PRO = 1 
XABSC—PROLEN_V3 = 0000 o1 
XABSC_RDT = Q000001E 
XABSC_RDTLEN = 00000014 
XBCSC_DSP eeeeeeee = X 01 
XBCS$C_DSPALL1 weeeneee =X 01 
XBCSC_OSPF eeeeeeee KX 01 
XBCSC_DSPFHC1 eeaeeeee = X 01 
XBC$C_OPNDA teeeenee =X 01 
XBC$C_OPNJNL aeeeeeee =X 0] 
XBCS$C_OPNPRO kereeeee x 9} 
XBC$C_OPNPRO1 eeeeeeee =X 01 
XBCS$C_OPNRDT aeeeeeee X 01 

peer meme ecenmaamnone + 

: Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 
> 00000000 ( 0.) 00 ¢ O.) NOPIC  USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
RMSRMS QOOOOIFD ¢ 509.) 0O1¢ 1.) PIC USR CON REL GBL NOSHR- EXE RD NOWRT NOVEC BYTE 
ABS 00000000 < 0.) O02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR- EXE RD WRT NOVEC BYTE 

Jomenenennnnemannenmmunt’s 
! Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00 .08 00:00:00.58 
Command processing 112 00:00:00.76 00:00:04.84 
Pass 504 bs SEN AS ib SET 
Symbol table sort 9 88:80:08") 00:00:03.59 
Pass 12 00:00:03.71 00:00:07.43 
Symbol table output 17 Bo: * 8-18 8:08: 8.32 
Psect synopsis output 1 :00:00.01 :00:00.1 
Cross-reference output 0 00:00: 9-08 es 4 
Assembler run totals 788 00:00:27.7 00:00:59.34 


The working set Limit was 1650 pages. . 

112391 bytes (220 pages) of virtual memory were used to buffer the intermediate code. 

There were 120 pages of symbol table space } ‘cages o hold 2200 non-local and 16 local symbols. 
623 source Lines were read in Pass 1, producing 15 object records in Pass 

39 pages of virtual memory were used to define 38 macros. 
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VAX=11 Macro Run Statistics “SEP-19 4:4 RMS.SRCIRMS SOD! SPL.MAR; 1 (10) 


peewee oeeecooceeseeseeeeeeeses} 


! Macro Library statistics ! 


Fee eceeceeeeeeaeeseeeeeeeoes} 


Macro Library name Macros defined 


“$33s8ouase 8: B:ESy8. rp OY MLB; Bi "23 
$255SDUA28: eye IBISTARLET MLB; 2 
TOTALS (all libraries) 34 


2370 GETS were required to define 34 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMSODISPL/OBJ=OBJ$:RMSODISPL MSRC$:RMSODISPL/UPDATE=(ENH$:RMSODISPL) +EXECML$/LIB+LIB$:RMS/LIB 
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